[Delphi]Listbox如何执行完一行执行下一行并改变当前正在执行item的颜色?
来源:百度知道 编辑:UC知道 时间:2024/09/23 02:32:54
比如我有个listbox,这里面有
1111
2222
3333
4444
4个item,然后我在画一个label控件,一个按钮,我点击按钮启动后,首先读到的是1111,在label显示的也是1111,并且1111那一行变成红色,然后执行完1111后,继续读到2222...以此类推。
希望各位帮帮忙,我大概知道应该是个循环,for i:=0 to listbox1.count-1 do 再往后我就有点迷糊了。。
非常感谢!
for I := 0 to RzListBox1.Items.Count - 1 do
begin
//这个部分是那些代码,字数限制,粘不过来,就314ccp老师写的那个
rzlistbox1.Canvas.TextOut(2,rzlistbox1.ItemHeight*u, rzlistbox1.Items.Strings[u]);
Inc(u);
end;
ms:=RzListBox1.Items.Strings[i]; //这里这里这里 i:string;
chgcmd(@cmda,ms);
cmdcase(cmda); //执行脚本
Sleep(1000);
if i>RzListBox1.ItemIndex then Break;
end;
请问这里的i要怎么赋值呢
我按照的314ccp老师的方法,把代码写在了循环里面,我的程序才会执行,但是只执行了第2行第二行例如2-1这个命令,没有执行第1行,不过好象不是特定的,就有的时候执行第一行,有的时候第二行。我想应该是我注释的那个地方写的不对,还有这个点完一次按钮如果再点一次的话 会弹出一个框框 List Index Out of bounds(2) 不知如何解决。
另外,TheFiend老师那段代码 DrawText(Hand
1111
2222
3333
4444
4个item,然后我在画一个label控件,一个按钮,我点击按钮启动后,首先读到的是1111,在label显示的也是1111,并且1111那一行变成红色,然后执行完1111后,继续读到2222...以此类推。
希望各位帮帮忙,我大概知道应该是个循环,for i:=0 to listbox1.count-1 do 再往后我就有点迷糊了。。
非常感谢!
for I := 0 to RzListBox1.Items.Count - 1 do
begin
//这个部分是那些代码,字数限制,粘不过来,就314ccp老师写的那个
rzlistbox1.Canvas.TextOut(2,rzlistbox1.ItemHeight*u, rzlistbox1.Items.Strings[u]);
Inc(u);
end;
ms:=RzListBox1.Items.Strings[i]; //这里这里这里 i:string;
chgcmd(@cmda,ms);
cmdcase(cmda); //执行脚本
Sleep(1000);
if i>RzListBox1.ItemIndex then Break;
end;
请问这里的i要怎么赋值呢
我按照的314ccp老师的方法,把代码写在了循环里面,我的程序才会执行,但是只执行了第2行第二行例如2-1这个命令,没有执行第1行,不过好象不是特定的,就有的时候执行第一行,有的时候第二行。我想应该是我注释的那个地方写的不对,还有这个点完一次按钮如果再点一次的话 会弹出一个框框 List Index Out of bounds(2) 不知如何解决。
另外,TheFiend老师那段代码 DrawText(Hand
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Index: Integer;
Point: TPoint;
DrawRect: TRect;
begin
for I := 0 to Listbox1.Items.Count - 1 do
begin
listbox1.ItemIndex:=k;
if k <> -1 then
begin
DrawRect.Left := 0 + 1;
DrawRect.Top := k * listbox1.ItemHe